home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / doc / manual / volume1 / musub.tex < prev    next >
Encoding:
Text File  |  1990-09-20  |  1.3 KB  |  25 lines
  1. \File{musub.c},{17:06},{Jan 10 1989}
  2. \L{\LB{io\_init(rp);      \C{}\/* initialisation *\/\CE{}}}
  3. \L{\LB{io\_wprm(\&prm,rp); \C{}\/* write management parameters *\/\CE{}}}
  4. \L{\LB{io\_wrq(\&q,rp);    \C{}\/* per message parameters *\/\CE{}}}
  5. \L{\LB{}}
  6. \L{\LB{ap = ad\_originator;             \C{}\/* originator *\/\CE{}}}
  7. \L{\LB{io\_wadr(ap,AD\_ORIGINATOR,rp);}}
  8. \L{\LB{ap = ad\_recipient;}}
  9. \L{\LB{\K{do} \{                            \C{}\/* list of recipients *\/\CE{}}}
  10. \L{\LB{    io\_wadr(ap,AD\_RECIPIENT,rp);}}
  11. \L{\LB{    ap = ap\-\>ad\_next;}}
  12. \L{\LB{    \} \K{while} ( ap != NULL );}}
  13. \L{\LB{io\_adend(rp);                   \C{}\/* terminate address list *\/\CE{}}}
  14. \L{\LB{}}
  15. \L{\LB{\Proc{if}\K{if}((p=next\_arg(\S{}\"body\"\SE{},argv)) != NULL) \{}}
  16. \L{\LB{    io\_tinit(rp);               \C{}\/* prepare for body part(s) *\/\CE{}}}
  17. \L{\LB{    \K{do} \{}}
  18. \L{\LB{        io\_tpart(p,FALSE,rp);   \C{}\/* prepare one body part *\/\CE{}}}
  19. \L{\LB{        loop\_data(p);           \C{}\/* transmit with io\_tdata() \/*}}
  20. \L{\LB{        io\_tdend(rp);           \/* end one file *\/\CE{}}}
  21. \L{\LB{    \} \K{while}(p=next\_arg(\S{}\"body\"\SE{},argv));}}
  22. \L{\LB{\}}}
  23. \L{\LB{io\_tend(rp));   \C{}\/* complete message *\/\CE{}}}
  24. \L{\LB{io\_end(type);   \C{}\/* terminate session with submit *\/\CE{}}}
  25.